# short look at agricultural data in EPR / Grids for prereg
library(dplyr)
library(readr)

epr <- read_csv(file.path("C:", "Users", "Frederik Gremler", "Documents", "paper_secession", "data_raw", "data.csv"))

table(epr$maincrop_max)

